home *** CD-ROM | disk | FTP | other *** search
/ The Complete Utilities To…ka 501 Killer Utilities! / 501 Killer Utilities! (Macworld July 1995).cdr / Programming / ICProgKit1.0 / APIs / ICTypes.p < prev   
Encoding:
Text File  |  1994-11-27  |  1.6 KB  |  44 lines  |  [TEXT/PJMM]
  1. unit ICTypes;
  2.  
  3. interface
  4.  
  5. {$ifc undefined THINK_Pascal}
  6.     uses
  7.         Types;
  8. {$endc}
  9.  
  10.     const
  11.         icPrefNotFoundErr = -666;            (* preference not found (duh!) *)
  12.         icPermErr = -667;                        (* cannot set preference *)
  13.         icPrefDataErr = -668;                    (* problem with preference data *)
  14.         icInternalErr = -669;                    (* hmm, this is not good *)
  15.         icTruncatedErr = -670;                    (* more data was present than was returned *)
  16.         icNoMoreWritersErr = -671;            (* you cannot begin a write session because someone else is already doing it *)
  17.     const
  18.         ICattr_no_change = -1;    (* supply this to ICSetPref to tell it not to change the attributes *)
  19.  
  20.         ICattr_locked_bit = 0;                                        (* bits in the preference attributes *)
  21.         ICattr_locked_mask = $00000001;                    (* masks for the above *)
  22.         ICattr_volatile_bit = 1;
  23.         ICattr_volatile_mask = $00000002;
  24.         
  25.         ICfiletype = 'ICAp';
  26.         ICcreator = 'ICAp';
  27.         ICdefault_file_name = 'Internet Preferences';    (* default file name, for internal use, overridden by a component resource *)
  28.         ICdefault_file_name_ID = 1024;                        (* ID of resource in component file *)
  29.     type
  30.         ICDirSpec = record                                            (* a record that specifies a folder *)
  31.                 vRefNum: integer;
  32.                 dirID: longint;
  33.             end;
  34.         ICDirSpecArray = array[0..3] of ICDirSpec;    (* an array of the above *)
  35.         ICDirSpecArrayPtr = ^ICDirSpecArray;                (* a pointer to that array *)
  36.         ICAttr = longint;                                                (* type for preference attributes *)
  37.         ICError = longint;                                                (* type for error codes *)
  38.         ICInstance = Ptr;                                                (* opaque type for preference reference *)
  39.         ICPerm = (icNoPerm, icReadOnlyPerm, icReadWritePerm);
  40.  
  41. implementation
  42.  
  43. end. (* ICTypes *)
  44.